1 LOCATE0,23:PRINT"FIN,OUI/NON (O/N) ?";IFINPUT$(1)="O"THENENDELSELOCATE0,23:INPUT"COULEURS ENCRE,FOND";C,F:IFC<0ORC>15ORF<0ORF>15THEN1ELSEC(0)=C:C(1)=-F-1:X=160:Y=99:LOCATE0,23,0:SCREEN,F,F:PRINT"EFFACEMENT DE L'ECRAN ?";CHR$(24);:IFINPUT$(1)="O"THENCLS
2 PSET(X,Y),C(0):M=STICK(0):B=STRIG(0):A$=INKEY$:PSET(X,Y),C(-B):IFA$="R"THENEXEC&H9F00:COLORC:LOCATE0,23:PRINTCHR$(24):GOTO1ELSEY=Y-(Y>0)*(M=1ORM=2ORM=8)+(Y(199)*(M=4ORM=5ORM=6):X=X-(X>0)*(M=6ORM=7ORM=8)+(X<319)*(M=2ORM=3ORM=4):GOTO2